  'ӵǰԪƶһԪ

Application.ActiveCell.Offset(-1).Select
Application.ActiveCell.Offset(-1).Activate

'Application.ActiveCell.Offset(-1,0).Select
Application.ActiveCell.Offset(-1, 0).Activate
 